home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / Serious Demos / Visual MacStandardBasic Demo / Samples / MultiForm Demo / Form3 < prev    next >
Encoding:
Text File  |  1997-09-30  |  1.6 KB  |  98 lines  |  [FORM/VMSB]
  1. MacStandardBasic Form Version 3.0
  2.  
  3.     FormBegin
  4.       Name=Form3
  5.       Title=Form3
  6.       Left=216
  7.       Top=55
  8.       Width=339
  9.       Height=156
  10.       Sub Proc.=None
  11.       Visible=1
  12.       Style=5
  13.       Enabled=1
  14.       Font=Geneva
  15.       FontSize=12
  16.       FontStyle=0
  17.       Show Grid=1
  18.       Grid Snap=1
  19.       Grid Size=8
  20.       Min. Width=100
  21.       Max. Width=2000
  22.       Min. Height=100
  23.       Max. Height=2000
  24.       AutoCenter=0
  25.       ForeColor=0 0 0
  26.       BackColor=40824 14419 65535
  27.     FormEnd
  28.  
  29.     ControlBegin=TextBox
  30.       Name=TextBox1
  31.       Text=TextBox1
  32.       Left (x)=48
  33.       Top (y)=24
  34.       Width=232
  35.       Height=24
  36.       Sub Proc.=None
  37.       Visible=1
  38.       Value=1
  39.       Enabled=1
  40.       Font=Geneva
  41.       FontSize=12
  42.       FontStyle=0
  43.       ScrollBar=0
  44.       Read Only=0
  45.       Tab Index=1
  46.       Opt20=1
  47.       Frame=1
  48.       ForeColor=0 0 0
  49.       BackColor=65535 65535 65535
  50.     ControlEnd
  51.  
  52.     ControlBegin=Button
  53.       Name=Button1
  54.       Text=Set TextBox in Form 1
  55.       Left (x)=48
  56.       Top (y)=64
  57.       Width=233
  58.       Height=33
  59.       Sub Proc.=Button1_Click
  60.       Visible=1
  61.       Value=0
  62.       Enabled=1
  63.       Opt20=1
  64.     ControlEnd
  65.  
  66.     ControlBegin=Button
  67.       Name=Button2
  68.       Text=Set TextBox in Form2
  69.       Left (x)=48
  70.       Top (y)=112
  71.       Width=233
  72.       Height=33
  73.       Sub Proc.=Button2_Click
  74.       Visible=1
  75.       Value=0
  76.       Enabled=1
  77.       Opt20=2
  78.     ControlEnd
  79.  
  80. Sub Button1_Click( )
  81.     If CtlExist(Form1.TextBox1) then
  82.         CtlText Form1.TextBox1, "Set by Form3", 0
  83.     EndIf
  84.  
  85.  
  86.  
  87. EndSub
  88.  
  89. Sub Button2_Click( )
  90.     If CtlExist(Form2.TextBox1) then
  91.         CtlText Form2.TextBox1, "Set by Form3", 0
  92.     EndIf
  93.  
  94.  
  95.  
  96. EndSub
  97.  
  98.